home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Bus / A / almanac 1.5 .cpt / Almanac v 1.5 / card_2966.txt < prev    next >
Text File  |  1989-01-02  |  4KB  |  173 lines
  1. -- card: 2966 from stack: in.5
  2. -- bmap block id: 7067
  3. -- flags: 0000
  4. -- background id: 2765
  5. -- name: Card
  6. ----- HyperTalk script -----
  7. on elong
  8.   go first card
  9.   put line 5 of field "Mars RA" of card 2 into sra
  10.   put line 6 of field "Mars RA" of card 2 into sdec
  11.   repeat with i=3 to 9
  12.     set cursor to busy
  13.     put (sra -  line 5 of field "Mars RA" of card i) into dra
  14.     put (sdec - line 6 of field "Mars RA" of card i) into ddec
  15.     put (dra+360) mod 360 into arg
  16.     if arg>180 then
  17.       get round(sqrt((360-arg)*(360-arg) + ddec*ddec))
  18.       put "E" into dir
  19.     else
  20.       get round(sqrt(dra*dra + ddec*ddec))
  21.       put "W" into dir
  22.     end if
  23.     put (short name of card i) & " -- " &it && dir into line i-2 of card field "elong"
  24.   end repeat
  25.   set cursor to 1
  26. end elong
  27.  
  28.  
  29. -- part 2 (field)
  30. -- low flags: 80
  31. -- high flags: 4000
  32. -- rect: left=37 top=51 right=67 bottom=435
  33. -- title width / last selected line: 0
  34. -- icon id / first selected line: 0 / 0
  35. -- text alignment: 0
  36. -- font id: 20
  37. -- text size: 10
  38. -- style flags: 0
  39. -- line height: 13
  40. -- part name: Sidereal Cheb
  41.  
  42.  
  43. -- part 9 (field)
  44. -- low flags: 00
  45. -- high flags: 4000
  46. -- rect: left=129 top=74 right=140 bottom=208
  47. -- title width / last selected line: 0
  48. -- icon id / first selected line: 0 / 0
  49. -- text alignment: 0
  50. -- font id: 20
  51. -- text size: 12
  52. -- style flags: 0
  53. -- line height: 16
  54. -- part name: Coords
  55.  
  56.  
  57. -- part 23 (field)
  58. -- low flags: 00
  59. -- high flags: 0000
  60. -- rect: left=40 top=245 right=279 bottom=265
  61. -- title width / last selected line: 0
  62. -- icon id / first selected line: 0 / 0
  63. -- text alignment: 0
  64. -- font id: 138
  65. -- text size: 12
  66. -- style flags: 0
  67. -- line height: 16
  68. -- part name: Algol
  69.  
  70.  
  71. -- part 24 (field)
  72. -- low flags: 00
  73. -- high flags: 0004
  74. -- rect: left=272 top=164 right=281 bottom=389
  75. -- title width / last selected line: 0
  76. -- icon id / first selected line: 0 / 0
  77. -- text alignment: 0
  78. -- font id: 20
  79. -- text size: 12
  80. -- style flags: 0
  81. -- line height: 16
  82. -- part name: Elong
  83.  
  84.  
  85. -- part 27 (button)
  86. -- low flags: 00
  87. -- high flags: A003
  88. -- rect: left=37 top=310 right=331 bottom=175
  89. -- title width / last selected line: 0
  90. -- icon id / first selected line: 0 / 0
  91. -- text alignment: 1
  92. -- font id: 0
  93. -- text size: 12
  94. -- style flags: 0
  95. -- line height: 16
  96. -- part name: Update for Today
  97. ----- HyperTalk script -----
  98. on mouseUp
  99.   global force
  100.   put 1 into force
  101.   put the seconds into t1
  102.   show field "Rem"
  103.   repeat with i=2 to 9
  104.     put round((the seconds-t1)/1.9) & "%" into field "Rem" of card i
  105.     go card i
  106.   end repeat
  107.   hide field "Rem"
  108.   put 0 into force
  109.   elong
  110. end mouseUp
  111.  
  112.  
  113.  
  114. -- part contents for card part 2
  115. ----- text -----
  116. 37.3666434 12.02493549 .00000478 -.00000035 .00000285 .00001539 -.00000356 -.00000655
  117.  
  118. 22.208333
  119.  
  120. -- part contents for card part 9
  121. ----- text -----
  122. 33.5
  123. 84
  124. 103
  125. 5.0 (EST)
  126.  
  127. -- part contents for background part 7
  128. ----- text -----
  129. Sidereal Time = 20:40
  130. 20.669446
  131.  
  132. -- part contents for background part 6
  133. ----- text -----
  134. Universal Time = 19:28
  135. 19.478611
  136.  
  137. -- part contents for background part 14
  138. ----- text -----
  139. Card
  140.  
  141. -- part contents for background part 28
  142. ----- text -----
  143. 2 January 1989
  144.  
  145. -- part contents for background part 31
  146. ----- text -----
  147. Julian Date = 2447529.312
  148.  
  149. -- part contents for card part 23
  150. ----- text -----
  151. Next minimum of Algol occurs in 42.1 hours at JD=2447531.065
  152. 47531.065
  153.  
  154. -- part contents for card part 24
  155. ----- text -----
  156. Mercury -- 21 E
  157. Venus -- 24 W
  158. Mars -- 101 E
  159. Jupiter -- 137 E
  160. Saturn -- 7 W
  161. Uranus -- 12 W
  162. Neptune -- 3 W
  163.  
  164. -- part contents for background part 37
  165. ----- text -----
  166. 1
  167.  
  168. -- part contents for background part 10
  169. ----- text -----
  170.  
  171.  
  172.  
  173.